home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 62 / 062.d81 / henry's hotel (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  202 lines
  1. 100 poke53280,.:poke53281,.
  2. 110 print"[147]"
  3. 120 print"    [215]elcome to [200]enry's [193]rt [200]otel [201][201]"
  4. 130 :
  5. 140 poke55,120:poke56,55:clr:a$=""
  6. 150 rem do not alter line 8 at all!
  7. 160 sys57812"unpacker.89",8,0:poke780,.:poke781,.:poke782,201:sys65493
  8. 170 sys57812"input any.o",8,0:poke780,.:poke781,60:poke782,3:sys65493
  9. 180 sys57812"psave 1.0.o",8,0:poke780,.:poke781,.:poke782,192:sys65493
  10. 190 :
  11. 200 ip=828:unpack=51456:hgr=51459
  12. 210 ps=49152:rem ps-pic save
  13. 220 :
  14. 230 read np : dim r$(np),c(np),c$(7)
  15. 240 forx=1tonp:readr$(x),c(x)
  16. 250 next:c$(1)="":c$(2)="[153]":c$(3)="":c$(4)="[159]":c$(5)="[154]"
  17. 260 gosub 1510: rem title screen
  18. 270 forx=1tonp
  19. 280 gosub1810
  20. 290 sys57812r$(x),8,0:poke780,.:poke781,.:poke782,64:sys65493
  21. 300 :
  22. 310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
  23. 320 poke251,64:poke252,224:poke253,204
  24. 330 print"[147]";:sysunpack:sys hgr:poke53280,c(x)
  25. 340 ag=3.34:kk=.
  26. 350 poke198,.
  27. 355 ifz3=0then360
  28. 357 z4=z4+1:z4=z4and15
  29. 358 poke53281,z4
  30. 360 kk=kk+1:geta$:ifa$=""andkk<800then355
  31. 370 ifa$="q"ora$="[209]"thengosub 1250
  32. 380 ifa$="s"ora$="[211]"then 470
  33. 390 ifa$<>chr$(133)then410
  34. 400 z1=z1+1:z1=z1and15
  35. 405 poke53280,z1:goto340
  36. 410 ifa$<>chr$(134)then416
  37. 412 z2=z2+1:z2=z2and15
  38. 415 poke53281,z2:goto340
  39. 416 ifa$<>chr$(135)then420
  40. 417 z3=z3+1:z3=z3and1:goto340
  41. 420 syshgr:print"[147]":poke198,.:next x
  42. 430 goto270
  43. 440 :
  44. 450 rem save koala pic
  45. 460 :
  46. 470 sys hgr
  47. 480 poke53280,.:poke53281,.
  48. 490 print"[147]":poke214,11:print
  49. 500 print"   save this unpacked picture? (y/n)"
  50. 510 geta$:ifa$=""then510
  51. 520 ifa$="[217]"ora$="y"then 560
  52. 530 ifa$="[206]"ora$="n"then 330
  53. 540 goto 510
  54. 550 :
  55. 560 print"[147]":poke214,9:print
  56. 570 print"  enter file name you wish to save as."
  57. 580 :
  58. 590 print"       name : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][154][193][146]";
  59. 600 ln%=14:sp$="                "
  60. 610 gosub680:ifnm$=""then490
  61. 620 nm$=left$(chr$(129)+nm$+sp$,15)
  62. 630 print"         is this correct? (y/n)"
  63. 640 geta$:ifa$=""then640
  64. 650 ifa$="y"ora$="[217]"then 790
  65. 660 ifa$="n"ora$="[206]"then 490
  66. 670 goto640
  67. 680 rem --- input routine ---
  68. 690 nm$="":x%=0:c%=peek(646)
  69. 700 print"[152][164][157]";:poke646,c%
  70. 710 geta$:ifa$=""then710
  71. 720 a%=asc(a$)
  72. 730 ifa%=20andx%>0thenx%=x%-1:nm$=left$(nm$,len(nm$)-1):print" [157][157]";:goto700
  73. 740 ifa%=20then710
  74. 750 ifa%=13 then print" ":return
  75. 760 ifx%=ln% then forer=1to2:poke53280,abs(255-peek(53280)):next:goto710
  76. 770 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"ora=34 then 710
  77. 780 nm$=nm$+a$:printa$;:x%=x%+1:goto700
  78. 790 :
  79. 800 rem -- check for 'file exists' --
  80. 810 :
  81. 820 open15,8,15,"r0:"+nm$+"="+nm$:input#15,er,er$:close15
  82. 830 if er<>62 then gosub1160:goto490
  83. 840 :
  84. 850 rem ---      save pic       ---
  85. 860 :
  86. 870 poke251,64:poke252,224:poke253,204
  87. 880 :
  88. 890 print"[147]":sysunpack
  89. 900 :
  90. 910 sys hgr:poke53280,c(x)
  91. 920 nm$=nm$+",p,w"
  92. 930 sys ps,nm$
  93. 940 sys hgr
  94. 950 :
  95. 960 rem --- check for errors ---
  96. 970 :
  97. 980 open15,8,15:input#15,er,er$,y$,z$:close15
  98. 990 ifer>. then gosub1160:goto 490
  99. 1000 :
  100. 1010 rem --    everything ok    ---
  101. 1020 :
  102. 1030 poke53280,.:poke53281,.
  103. 1040 print"[147]":poke214,7:print
  104. 1050 print"             saving complete."
  105. 1060 print"   please replace your loadstar disk"
  106. 1070 print"   in your disk drive and press space"
  107. 1080 geta$:ifa$<>" "then1080
  108. 1090 open15,8,15,"r0:psave 1.0.o=psave 1.0.o":input#15,er:close15
  109. 1100 ifer<>63 then 1040
  110. 1110 sys hgr:goto 420
  111. 1120 :
  112. 1130 :
  113. 1140 :
  114. 1150 rem ---   print dos error msg ---
  115. 1160 :
  116. 1170 poke53280,.:poke53281,.:print"[147]        [129] d i s k   e r r o r !
  117. 1180 [151]214,10:[153]
  118. 1190 a$[178]"print#error #"[170][196](er)[170]"print#,"[170]er$
  119. 1200 x%[178]22[171][195](a$)[173]2:[153][163]x%);a$
  120. 1210 [151]214,21:[153]
  121. 1220 [153]"print#        press space to continue."
  122. 1230 [161]a$:[139]a$[179][177]" "[167]1230
  123. 1240 [142]
  124. 1250 o[178][194](53270)[175]16
  125. 1255 [139]o[167][158]51459
  126. 1260 [151]53281,0:[151]53280,0
  127. 1270 [153]"load  atnre you sure you want to quit? (y/n)"
  128. 1280 [151]198,0:[146]198,1:[161]ag$
  129. 1290 [139]ag$[178]"y"[176]ag$[178]"(NULL)"[167]1330
  130. 1295 [139]o[167][158]51459
  131. 1300 [142]
  132. 1320 [143] quit
  133. 1330 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  134. 1340 [139]er[179][177]63[167][153]"load":[128]
  135. 1350 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  136. 1360 [153]"run"
  137. 1370 [151]631,13:[151]632,13:[151]198,2:[128]
  138. 1380 [143] data <title>,<border color>
  139. 1390 [131] 10
  140. 1400 [131] sleep,0
  141. 1410 [131] dancer,0
  142. 1420 [131] toucan,0
  143. 1430 [131] japanese,0
  144. 1440 [131] scream,0
  145. 1450 [131] joust,0
  146. 1460 [131] boat,0
  147. 1470 [131] fishy,0
  148. 1480 [131] snake,0
  149. 1490 [131] flamingo,0
  150. 1500 :
  151. 1510 [143] title screen
  152. 1520 [153]"load":[151]53281,1:[151]53280,1
  153. 1530 [153]"         or{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  154. 1540 [153]"         (NULL)(NULL)oadstar (NULL)resents(NULL)print# "
  155. 1550 [153]"         /tantantantantantantantantantantantantantantantantanexpprint# "
  156. 1560 [153]"                             "
  157. 1570 [153]
  158. 1580 [153]"  openortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  159. 1590 [153]"  (NULL)    ortantantantantantantantantantantantantantantantantantantantantantantan^open     (NULL)print# "
  160. 1600 [153]"  open(NULL)    (NULL) left$enry's atnrt left$otel right$right$  (NULL)cont open    (NULL)print# "
  161. 1610 [153]"  open(NULL)    /tantantantantantantantantantantantantantantantantantantantantantantanexpcont open    (NULL)print# "
  162. 1620 [153]"  open(NULL)     cont                         open    (NULL)print# "
  163. 1630 [153]"  open(NULL)                                  (NULL)print#close"
  164. 1640 [153]"  open(NULL)       (NULL)lide (NULL)how (NULL)resenter       (NULL)print#close"
  165. 1650 [153]"  open(NULL)    (len) 1989 by (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL), right$nc.    (NULL)print#close"
  166. 1660 [153]"  open(NULL)                                  (NULL)print#close"
  167. 1670 [153]"  open/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexpprint#close"
  168. 1680 [153]"                                       "
  169. 1690 [153]
  170. 1700 [153]"     ortantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  171. 1710 [153]"     (NULL)  atnll pictures crafted by   (NULL)print# "
  172. 1720 [153]"     (NULL)        lenhris left$enry         (NULL)print# "
  173. 1730 [153]"     /tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexpprint# "
  174. 1740 [153]"                                    "
  175. 1750 :
  176. 1760 [153]"   ( (NULL)ress any key to start the showclose)";:kk[178]0
  177. 1770 [153]"";
  178. 1780 kk[178]kk[170]1:[161]a$:[139]a$[178]""[175]kk[179]500[167]1780
  179. 1790 [151]53281,5:[142]
  180. 1800 :
  181. 1810 [151]53281,6:[151]53280,6
  182. 1820 [153]"loadprint#ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  183. 1830 [129]qx[178]1[164]12
  184. 1840 [153]"(NULL)(NULL)";:[130]
  185. 1850 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  186. 1860 [129]lx[178]217[164]217[170]26:[151]lx,([194](lx)[176]128):[130]
  187. 1870 nm$[178]"p."[170]r$(x)
  188. 1880 [159]2,8,2,nm$:[153]"";
  189. 1890 [129]i[178]0[164]1:[158]ip,2,40:[153]""a$
  190. 1900 i[178]st:[130]:[160]2:[142]
  191. 1910 kk[178]0
  192. 1915 [151]214,14:[153]:[153]"list     (NULL)hile the slide is showing..."
  193. 1916 [153]"      asc1 list- changes border color"
  194. 1917 [153]"      asc3 list- changes background color"
  195. 1918 [153]"      asc5 list- toggles light show"
  196. 1920 [151]214,22:[153]:[153]c$(c)
  197. 1930 [153]"(NULL)ress (NULL) to quit - atnny other to continueon":[129]d[178]0[164]5
  198. 1940 kk[178]kk[170]1:[161]a$:[139]a$[179][177]""[176]kk[177]1000[167][142]
  199. 1950 [130]:c[178]c[170]s:[139]c[177]5[167]s[178][171]1
  200. 1960 [139]c[179]1[167]s[178][170]1:c[178]1
  201. 1970 [137]1920
  202.